Iron Maiden - Maiden Hell!/Iron Maiden - Maiden Hell! Promotional CD-ROM.iso/mac/promo.dxr/scripts_12_close window = .ls

Text File | 1998-09-16 | 897 b | 25 lines

on mouseUp
  set locHstart to the left of sprite 11
  set locVstart to the top of sprite 11
  set the locH of sprite 8 to locHstart
  set the locV of sprite 8 to locVstart
  set widthStart to the width of the member of sprite 11
  set heightStart to the height of the member of sprite 11
  set the width of sprite 8 to widthStart
  set the height of sprite 8 to heightStart
  updateStage()
  set the visible of sprite 11 to 0
  set the visible of sprite 10 to 0
  set the visible of sprite 9 to 0
  repeat with y = 10 down to 0
    set the width of sprite 8 to y * (widthStart / 10.0)
    set the height of sprite 8 to y * (heightStart / 10.0)
    set the locH of sprite 8 to locHstart + ((11 - y) * (widthStart / 20.0))
    set the locV of sprite 8 to locVstart + ((11 - y) * (heightStart / 20.0))
    updateStage()
    startTimer()
    repeat while the timer < 5
    end repeat
  end repeat
end